CREATE OR REPLACE PROCEDURE EXA$CREA_EXAMEN_ADJ
	/************************************************************************/
	/*NOMBRE             : EXA$CREA_EXAMEN_ADJ               		        */
	/*DESCRIPCI??N       : CREA ADJUNTOS DE UN EXAMEN                       */
	/*FECHA CREACION     : 27-SEPT-2012 12:41                               */
	/*VERSION            : V01.00-000                                       */
	/************************************************************************/
  (
    NIDEXAMEN$	            	IN NUMBER,
	SCODTIPOADJUNTO$			IN VARCHAR2,
    SNOMADJUNTO$	          	IN VARCHAR2,
	NIDADJUNTO$					OUT NUMBER,
    NUMERROR$					OUT NUMBER,
    MSJERROR$ 			        OUT VARCHAR2 
	)
AS								
	XNIDADJUNTO$ 	NUMBER(18);
    	
BEGIN
  
	NUMERROR$ := 0;
	MSJERROR$ := '';

	IF NIDEXAMEN$ = 0 THEN
		NUMERROR$ := 100;
		MSJERROR$ := '[EXA$CREA_EXAMEN_ADJ] ID DE EXAMEN ES OBLIGATORIO';
		RETURN;	
	END IF;

  	/*-----------------------------------------------*/
    /* INSERTA EL ADJUNTO DEL EXAMEN             	 */
    /*-----------------------------------------------*/
    BEGIN
        NumError$ := 0;
        MsjError$ := '';
        XNIDADJUNTO$ := SEQ_ADJUNTO.NEXTVAL;

        INSERT INTO 
            ADJUNTO_EXAMEN
            (
                ADJ_NIDADJUNTO, 
                ADJ_NIDEXAMEN, 
                ADJ_SCODTIPOADJUNTO, 
                ADJ_BARCHIVOADJUNTO,
                ADJ_SNOMADJUNTO
            ) 
        VALUES
            (
                XNIDADJUNTO$, 
                NIDEXAMEN$, 
                SCODTIPOADJUNTO$, 
                EMPTY_BLOB(),
                SNOMADJUNTO$
            );
        EXCEPTION
            WHEN DUP_VAL_ON_INDEX THEN
                NUMERROR$ := 72102;
                MSJERROR$ := '[EXA$CREA_EXAMEN_ADJ] ADJUNTO NOTIFICACION YA EXISTE INS';
                RETURN;
            WHEN OTHERS THEN
                NUMERROR$ := SQLCODE;
                MSJERROR$ := '[EXA$CREA_EXAMEN_ADJ] NO PUEDE INSERTAR ADJUNTO NOTIFICACION GES (SQL)';
                RETURN;
        END;
        NumError$ := 0;
		MsjError$ := ' ';
        NIDADJUNTO$ := XNIDADJUNTO$;
        RETURN;
END;